home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_148_Select Exchange and Symbol.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  72 lines
  1. ItemType: WIND
  2. Rect: 170,249,494,389
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Select Exchange and Symbol
  8. Params: i2_Text┬i0_TopLeft
  9. Result: i2_SelectionText┬i4_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 237,104,309,124
  13. Disabled: TRUE
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: LIST
  19. Rect: 5,21,101,135
  20. Name: List
  21. Logic: Single
  22. DoubleClickItem: 1
  23. Text: NYSE┬AMEX┬OTC┬Mutual┬None
  24. Script: get wsGet(wdID,"List","SelectionText")┬if it¡empty then ┬  wsSet wdID,"OK","Disabled", "false"┬else┬  wsSet wdID,"OK","Disabled", "true"┬end if
  25.  
  26. ItemType: PUSH
  27. Rect: 109,21,169,38
  28. TextFont: Geneva
  29. TextSize: 10
  30. AutoSize: FALSE
  31. Name: Edit List╔
  32. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬global exchanges┬put WSTopLeft(2,116) into TL┬put WindowScript("Edit Exchange List",exchanges,TL) into rr┬if line 1 of rr="OK" then┬  put line 2 to 50 of rr into exchanges┬  put exchanges into fld "exchList" of cd "Prefs"┬  wsSet wdID,"List","Text",exchanges┬end if┬--end mouseUp┬
  33.  
  34. ItemType: TEXT
  35. Rect: 230,21,315,43
  36. Name: Symbol
  37. LockText: FALSE
  38. TextAlign: Center
  39. Text: XXXX
  40.  
  41. ItemType: TEXT
  42. Rect: 15,2,81,18
  43. Name: ExchTitle
  44. TextAlign: Center
  45. Text: Exchange
  46.  
  47. ItemType: TEXT
  48. Rect: 247,2,298,18
  49. Name: SymTitle
  50. TextAlign: Center
  51. Text: Symbol
  52.  
  53. ItemType: TEXT
  54. Rect: 226,44,320,58
  55. TextFont: Geneva
  56. TextSize: 9
  57. AutoSize: FALSE
  58. Name: symInstr
  59. TextAlign: Center
  60. Text: 6 characters or less
  61.  
  62. ItemType: TEXT
  63. Rect: 109,54,219,138
  64. TextFont: Geneva
  65. TextSize: 9
  66. AutoSize: FALSE
  67. Name: Instr
  68. Text: 1. Click on an exchange or click ╥Edit List...╙ to create a new exchange.┬┬2. Enter a symbol for the security.
  69.  
  70. ItemType: RBOX
  71. Rect: 221,1,323,61
  72. PenSize: 2,2